home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / DS-2.ZIP;1 / TESTS.ZIP / TRACER.ICN < prev    next >
Encoding:
Text File  |  1992-02-11  |  694 b   |  31 lines
  1. global s
  2. procedure main()
  3.    &trace := -1
  4.    s := "abcdef"
  5.    &subject := "123456"
  6.    &pos := 4
  7.    every tracer(1)
  8.    every foo(&pos | &subject | &pos[1] | &subject[2:5])
  9.    display()
  10.    write(&line)
  11.    write(&file)
  12.    write(&level)
  13. end
  14.  
  15. procedure tracer(a)
  16.    local i
  17.    static j
  18.    i := 2
  19.    j := 3
  20.    suspend .(a | i | j | s | &subject |
  21.       &pos | &random | &trace | &subject[3:4] | &pos[1] |
  22.       s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1])
  23.    suspend (a | i | j | s | &subject |
  24.       &pos | &random | &trace | &subject[3:4] | &pos[1] |
  25.       s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1])
  26. end
  27.  
  28. procedure foo(s)
  29.    return s
  30. end
  31.